MODULE ñññññangos2 ;
	FROM InOut IMPORT WriteLn, ReadInt, WriteString ;
VAR
	NumeroLeido : INTEGER ;
BEGIN
	WriteString("D�game un n�mero entre 1 y 100") ;
	WriteLn ;
	ReadInt( NumeroLeido ) ;
	WriteLn ;
	IF NumeroLeido < 25 THEN
		WriteString("Es menor que 25" );
	ELSIF ( NumeroLeido >= 25 ) AND ( NumeroLeido < 50 ) THEN
		WriteString("Est� en el intervalo [25, 50)" );
	ELSIF ( NumeroLeido >= 50 ) AND ( NumeroLeido <= 75 ) THEN
		WriteString("Est� en el intervalo [50, 75]" );
	ELSE
		WriteString("Es mayor que 75" );
	END ;
	WriteLn ;
END Rangos2.